home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinNT Load Balance.xpl < prev    next >
Text File  |  2001-11-29  |  1KB  |  46 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH 1"="Network\Network Interface"
  5. "UIPATH 2"="Hardware\NIC Cards"
  6. "NAME"="Automatic Load Balancing"
  7. "VERSION"="1.13"
  8. "OSVERSION"="0101011"
  9. "LANGUAGE"="VBScript"
  10. "TEXT 1"="Enable Load Balancing"
  11. "DESCRIPTION 1"="For WinNT/Win2000/XP: For systems with 2 Network Cards [NICs]."
  12. "DESCRIPTION 2"="Checking Box enables Load Balancing; Unchecking [clearing] Box will disable Load Balancing."
  13. "AUTHOR"="Ojatex@aol.com"
  14. "CONTACTURL"="http://members.aol.com/ojatex/"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="For X-Setup program information, go to http://www.xteq.com."
  17. "COMMENT 2"="Thanks to CptSiskoX for the tip."
  18.  
  19. sP="HKLM\System\CurrentControlSet\Services\NetBT\Parameters\RandomAdapter" 'Dword 1=enable 0=disable
  20. sP1="HKLM\System\CurrentControlSet\Services\NetBT\Parameters\SingleResponse" 'Dword 1=enable 0=disable
  21.  
  22.  
  23. Sub Plugin_Initialize 
  24.   i=RegReadValue(sP)
  25.   if i=1 then SetUIElement 1,true
  26. End Sub
  27.  
  28. Sub Plugin_CheckData(ElementIndex)
  29. End Sub
  30.  
  31. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  32.   b=GetUIElement(1)
  33.  if b=true then
  34.     Call RegWriteValue(sP,1,2)
  35.     Call RegWriteValue(sP1,1,2) 
  36. else
  37.     if RegValueExists(sP) then Call RegDeleteValue(sP)
  38.     if RegValueExists(sP1) then Call RegDeleteValue(sP1)
  39.  end if
  40.  
  41. End Sub
  42.  
  43. Sub Plugin_Terminate 
  44. End Sub
  45.  
  46.